home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / address labeler (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  106 lines
  1. 0 rem label maker utility
  2. 1 rem by  joseph stein jr.
  3. 2 rem     859 miami st.,apt.35
  4. 3 rem     tiffin, oh 44883
  5. 4 rem     ph. (419) 447-7908
  6. 5 rem november 1984
  7. 80 rem enter text for label(s)
  8. 100 poke53280,12:poke53281,9:print"[147][158]"
  9. 107 gosub2000
  10. 110 ay$="are you sure? (y/n)":wl=.
  11. 120 ma$="[147]max. 32 keystrokes/line"
  12. 200 printma$:input"[145][145][145][145][145]enter name, return";ra$(1)
  13. 210 print"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"ay$
  14. 225 gety$:ify$=""then225
  15. 240 ify$="n"then200
  16. 250 ify$<>"y"then225
  17. 270 ifwl=1andy$="y"then700
  18. 300 printma$:input"[145][145][145][145][145]enter address (no commas), return";ra$(2)
  19. 310 print"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"ay$
  20. 325 gety$:ify$=""then325
  21. 340 ify$="n"then300
  22. 350 ify$<>"y"then325
  23. 370 ifwl=2andy$="y"then700
  24. 400 printma$:input"[145][145][145][145][145]enter city,state (e.g. tiffin,ohio)";ra$(3),ra$(4)
  25. 405 ra$(4)=" "+ra$(4)
  26. 410 print"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"ay$
  27. 425 gety$:ify$=""then425
  28. 440 ify$="n"then400
  29. 450 ify$<>"y"then425
  30. 470 ifwl=3andy$="y"then700
  31. 500 printma$:input"[145][145][145][145][145]enter zip code[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";rz$
  32. 510 print"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"ay$
  33. 525 gety$:ify$=""then525
  34. 540 ify$="n"then500
  35. 550 ify$<>"y"then525
  36. 600 printma$:input"[145][145][145][145][145]optional line (e.g. your phone #)";ol$
  37. 610 print"                         [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"ay$
  38. 620 gety$:ify$=""then620
  39. 630 ify$="n"then600
  40. 640 ify$<>"y"then620
  41. 670 ifwl=4andy$="y"then700
  42. 700 rem preview in graphix
  43. 720 print"[147]here's a preview of your label(s)"
  44. 760 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  45. 761 print"[194]                                  [194]"
  46. 762 print"[194]                                  [194]"
  47. 763 print"[194]                                  [194]"
  48. 764 print"[194]                                  [194]"
  49. 765 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  50. 800 print"[145][145][145][145][145]"ra$(1):print""ra$(2):print""ra$(3)","ra$(4)"  "rz$
  51. 810 print""ol$
  52. 830 print"like it? (y/n)"
  53. 850 getyn$:ifyn$=""then850
  54. 860 ifyn$="y"then1200
  55. 870 ifyn$<>"n"then850
  56. 900 print"change one line or all (o/a)?"
  57. 910 getoa$:ifoa$=""then910
  58. 920 ifoa$="a"then110
  59. 930 ifoa$<>"o"then910
  60. 950 print"change which line (1,2,3 or 4)?"
  61. 960 getwl:ifwl<1orwl>4then960
  62. 970 onwlgoto120,300,400,600
  63. 1200 rem printer routine
  64. 1210 print"want to print it? (y/n)"
  65. 1220 getpr$:ifpr$=""then1220
  66. 1230 ifpr$="n"then1600
  67. 1240 ifpr$<>"y"then1220
  68. 1310 print"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  69. 1320 print"[194]                                  [194]"
  70. 1330 print"[194]                                  [194]"
  71. 1340 print"[194]                                  [194]"
  72. 1350 print"[194]                                  [194]"
  73. 1360 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  74. 1370 print"[145][145][145][145][145]"ra$(1):print""ra$(2):print""ra$(3)","ra$(4)"  "rz$
  75. 1380 print""ol$
  76. 1400 input"how many labels are needed?";la
  77. 1410 print"adjust printer"
  78. 1420 print"press space bar when ready":print"f7 to exit"
  79. 1425 print"f5 to stop printing"
  80. 1450 getsb$:ifsb$=""then1450
  81. 1460 ifsb$="[136]"then700
  82. 1470 ifsb$<>" "then1450
  83. 1500 close4:open4,4
  84. 1510 foram=1tola
  85. 1520 print#4,ra$(1)
  86. 1530 print#4,ra$(2)
  87. 1540 print#4,ra$(3)","ra$(4)"  "rz$
  88. 1550 print#4,ol$:foru=1to2:print#4,:nextu
  89. 1560 getqp$:ifqp$="[135]"thenprint#4:close4:goto700:rem f5
  90. 1570 next
  91. 1600 print"[147]again? (y/n)"
  92. 1610 getag$:ifag$=""then1610
  93. 1620 ifag$="n"then63000
  94. 1630 ifag$<>"y"then1610
  95. 1640 goto110
  96. 2000 print"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  97. 2005 print"[194] address labeler [194]"
  98. 2010 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  99. 2020 print"by joseph stein jr."
  100. 2030 print"press space bar to start"
  101. 2040 getst$:ifst$<>" "then2040
  102. 2050 return
  103. 63000 rem    connect back to l.s.
  104. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  105. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  106.